COMMENT ⊗   VALID 00007 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	REQUIRE	"SAITRG[SYS,HE]"	LOAD_MODULE
 00003 00003	REQUIRE	"RECDPY[SYS,HE]"	LOAD_MODULE
 00004 00004	REQUIRE	"RECOG0[SYS,HE]"	LOAD_MODULE
 00005 00005	REQUIRE	"RECOG1[SYS,HE]"	LOAD_MODULE
 00007 00006	REQUIRE	"RECOG2[SYS,HE]"	LOAD_MODULE
 00008 00007	REQUIRE	"RECOG3[SYS,HE]"	LOAD_MODULE
 00009 ENDMK
⊗;
REQUIRE	"SAITRG[SYS,HE]"	LOAD_MODULE;
α	DATE: OCT 6, 1972;

α	EXTERNAL PROCEDURES;

EXTERNAL REAL PROCEDURE SQRT(REAL X);
EXTERNAL REAL PROCEDURE ATAN(REAL X);
EXTERNAL REAL PROCEDURE ACOS(REAL X);
EXTERNAL REAL PROCEDURE SIN(REAL X);
EXTERNAL REAL PROCEDURE COS(REAL X);

REQUIRE	"RECDPY[SYS,HE]"	LOAD_MODULE;
ESP	PRINTNAME(ITEMVAR X);

REQUIRE	"RECOG0[SYS,HE]"	LOAD_MODULE;

EP	DISKSEG;
EP	DISKPRE;
EP	DISKOUT;
EBP	COMPLETE(ITEMVAR BODY);
EP	PARTPP(ITEMVAR B);
EP	PARTFT(ITEMVAR B);
EBP	SUBSET1(SET ES1,ES2);
EP	PARTBEL(ITEMVAR B);
EP	PARTBA(ITEMVAR B);
EP	PARTNVP(ITEMVAR B);
EP	PARTLAC(ITEMVAR B);

REQUIRE	"RECOG1[SYS,HE]"	LOAD_MODULE;

ESP	GENSYM(INTEGER ITEMVAR X);
EP	TABCOOR(SAFE REAL ARRAY ITEMVAR U);
ERP	DET3X3(REAL ARRAY A);
EP	INVERT(REAL ARRAY A, AI);
EP	HOMO_XFRM(SAFE REAL ARRAY P,T);
EP	BESTIN(SAFE REAL ARRAY PJ,QJ,PK,QK,INT;
		REFERENCE REAL MISDIS);
EP	INITIALIZE(SAFE REAL ARRAY A);
EP	MATMULT(SAFE REAL ARRAY A,B,C;INTEGER N);
EP	VERT_LINE_PT(SAFE REAL ARRAY ITEMVAR T,B);
ERP	ANGLE(SAFE REAL ARRAY ITEMVAR P1,P2,P3;
		INTEGER DIMS);
ERP	DIST(SAFE REAL ARRAY ITEMVAR P1,P2);
EBP	VERT(ITEMVAR E);
EBP	PARALLEL(ITEMVAR L1,L2);
EBP	COLINEAR(ITEMVAR U,V);
EP	CROSS_PROD(REFERENCE SAFE REAL ARRAY A,B,CP);
ERP	DOT_PROD(SAFE REAL ARRAY V1,V2);

REQUIRE	"RECOG2[SYS,HE]"	LOAD_MODULE;

EIP	NEXTL(ITEMVAR L1,L2,F);
EIP	GNEXTL(ITEMVAR L1,L2,F);
EP	COMPARE;
EP	MATCHLINES(ITEMVAR F,MF,L1,L2,ML1,ML2);
EP	FINDX(SAFE REAL ARRAY ITEMVAR B,P,X1,X2,X3,MX1,
		MX2,MX3);
EXTERNAL SET PROCEDURE
	BASE_EDGES(ITEMVAR B);
EP	SUPPORT(ITEMVAR B1,B2);
EP	MAKEPP(ITEMVAR PRO; INTEGER F,V,D);
EP	FINDEDGELENGTHS(ITEMVAR B);

REQUIRE	"RECOG3[SYS,HE]"	LOAD_MODULE;

EBP	BOUNDED(REAL X,Y;SAFE REAL ARRAY P;INTEGER N);
EXTERNAL REAL ARRAY ITEMVAR PROCEDURE
	MIDPOINT(ITEMVAR L);
EBP	SAMELINE(ITEMVAR OE,PE);
EXTERNAL REAL ARRAY ITEMVAR PROCEDURE 
	IMAGINARY(SAFE REAL ARRAY ITEMVAR P;
		REAL ITEMVAR L;REAL DIST);
EBP	L1DOTL2XL3(SAFE REAL ARRAY ITEMVAR U,V,W);
EP	VERT_PLANE_PT(SAFE REAL ARRAY ITEMVAR T,B1,B2);
EP	HORIZ_PLANE_PT(SAFE REAL ARRAY ITEMVAR U,K);
EP	FIND4PTS(ITEMVAR B,M);
EBP	FINDMATCH(ITEMVAR PROTOTYPE,B);